dim doc
set doc = application.ActiveDocument
if doc.LayerEnabled(111) = true then
	Application.ModelessCmd("l 111")
end if